home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / MOVIEMGR.ZIP;1 / MOVIEMGR.BAS next >
Encoding:
BASIC Source File  |  1992-07-01  |  18.0 KB  |  831 lines
  1.      REM ***********************************************************************
  2.      REM *                       Movie Manager v1.01                           *
  3.      REM *                       Author: JOHN FOWLER                           *
  4.      REM ***********************************************************************
  5.      KEY OFF
  6.      REM for k=1 to 10:key k,"":next k
  7.      SCREEN 0
  8.      WIDTH 80
  9.      CLS
  10.      CLEAR
  11.      DIM MTH$(12), MONTH$(12)
  12.      FILE$ = "SCHEDULE.DAT"
  13.      OFILE$ = "OLD.DAT"
  14. TARGET1:
  15.      DATA JAN,FEB,MAR,ARP,MAY,JUN,JLY,AUG,SEP,OCT,NOV,DEC
  16.      RESTORE TARGET1
  17.      FOR N = 1 TO 12
  18.      READ MTH$(N)
  19.      NEXT N
  20. TARGET2:
  21.      DATA January,February,March,April,May,June,July,August,September,October,November,December
  22.      RESTORE TARGET2
  23.      FOR N = 1 TO 12
  24.      READ MONTH$(N)
  25.      NEXT N
  26.      SMTH$ = MID$(DATE$, 1, 2)
  27.      SDAY$ = MID$(DATE$, 4, 2)
  28.      SMTH = VAL(SMTH$)
  29.      SDAY = VAL(SDAY$)
  30.      MTH = SMTH
  31.      MTH$ = SMTH$
  32.      DAY = SDAY
  33.      DAY$ = SDAY$
  34.      SCREEN 0
  35.      WIDTH 80
  36.      COLOR 7, 0
  37.      CLS
  38.      SHELL "TYPE MOVIEMGR.SCR"
  39.      L$ = "Press <ANY KEY> to continue..."
  40.      GOSUB TARGET3
  41.      GOSUB TARGET4
  42.      GOTO TARGET5
  43. TARGET3:
  44.      COLOR 8, 0
  45.      LOCATE 24, 1, 0
  46.      PRINT SPACE$(79);
  47.      LOCATE 24, 40 - LEN(L$) / 2, 0
  48.      PRINT L$;
  49.      COLOR C, 0
  50.      RETURN
  51. TARGET4:
  52.      I$ = INKEY$
  53.      IF I$ = "" THEN
  54.          GOTO TARGET4
  55.      END IF
  56.      I = ASC(I$)
  57.      IF I > 96 AND I < 123 THEN
  58.          I = I - 32
  59.          I$ = CHR$(I)
  60.      END IF
  61.      RETURN
  62. TARGET6:
  63.      GOSUB TARGET4
  64.      IF I$ = "Y" THEN
  65.          PRINT "Yes";
  66.          RETURN
  67.      END IF
  68.      IF I$ = "N" THEN
  69.          PRINT "No";
  70.          RETURN
  71.      END IF
  72.      BEEP
  73.      GOTO TARGET6
  74. TARGET8:
  75.      L = LEN(L$)
  76.      X = 38 - INT(L / 2)
  77.      COLOR C + 8, C
  78.      LOCATE Y, X, 0
  79.      PRINT "’"; STRING$(L + 2, 205); "∏";
  80.      COLOR C + 8, C
  81.      LOCATE Y + 1, X
  82.      PRINT "≥ ";
  83.      COLOR 15, C
  84.      PRINT L$;
  85.      COLOR C + 8, C
  86.      PRINT " ≥";
  87.      COLOR C, 0
  88.      PRINT "∞∞";
  89.      COLOR C + 8, C
  90.      LOCATE Y + 2, X
  91.      PRINT "‘"; STRING$(L + 2, 205); "æ";
  92.      COLOR C, 0
  93.      PRINT "∞∞";
  94.      COLOR C, 0
  95.      LOCATE Y + 3, X
  96.      PRINT "  "; STRING$(L + 4, 176);
  97.      Y = Y + 5
  98.      RETURN
  99. TARGET9:
  100.      L = LEN(L$)
  101.      X = 38 - INT(L / 2)
  102.      COLOR C + 8, C
  103.      LOCATE Y, X
  104.      PRINT "’"; STRING$(L + 2, 205); "∏";
  105.      Y = Y + 1
  106.      GOSUB TARGET7
  107.      RETURN
  108. TARGET7:
  109.      COLOR C + 8, C
  110.      LOCATE Y, X
  111.      PRINT "≥ ";
  112.      COLOR 14, C
  113.      PRINT MID$(L$, 1, SIZE);
  114.      COLOR 15, C
  115.      PRINT MID$(L$, SIZE + 1);
  116.      COLOR C + 8, C
  117.      PRINT " ≥";
  118.      COLOR C, 0
  119.      PRINT "∞∞";
  120.      Y = Y + 1
  121.      RETURN
  122. TARGET10:
  123.      COLOR C + 8, C
  124.      LOCATE Y, X
  125.      PRINT "‘"; STRING$(L + 2, 205); "æ";
  126.      COLOR C, 0
  127.      PRINT "∞∞";
  128.      Y = Y + 1
  129.      COLOR C, 0
  130.      LOCATE Y, X
  131.      PRINT "  "; STRING$(L + 4, 176);
  132.      Y = Y + 2
  133.      RETURN
  134. TARGET5:
  135.      CLS
  136.      Y = 2
  137.      C = 1
  138.      L$ = "Movie Manager v1.01"
  139.      GOSUB TARGET8
  140.      L$ = "MAIN MENU"
  141.      SIZE = 9
  142.      GOSUB TARGET9
  143.      GOSUB TARGET10
  144.      L$ = "Purge Schedule "
  145.      SIZE = 1
  146.      GOSUB TARGET9
  147.      L$ = "Modify Schedule"
  148.      GOSUB TARGET7
  149.      L$ = "Output Schedule"
  150.      GOSUB TARGET7
  151.      L$ = "Quit to MS-DOS "
  152.      GOSUB TARGET7
  153.      GOSUB TARGET10
  154.      L$ = "Press the Key of your Selection"
  155.      GOSUB TARGET3
  156. TARGET15:
  157.      GOSUB TARGET4
  158.      IF I$ = "P" THEN
  159.          GOTO TARGET11
  160.      END IF
  161.      IF I$ = "M" THEN
  162.          GOTO TARGET12
  163.      END IF
  164.      IF I$ = "O" THEN
  165.          GOTO TARGET13
  166.      END IF
  167.      IF I$ = "Q" THEN
  168.          GOTO TARGET14
  169.      END IF
  170.      BEEP
  171.      GOTO TARGET15
  172. TARGET14:
  173.      CLS
  174.      Y = 2
  175.      C = 4
  176.      L$ = "QUIT TO MS-DOS"
  177.      GOSUB TARGET8
  178.      L$ = "Are you sure?"
  179.      GOSUB TARGET8
  180.      L$ = "Yes"
  181.      GOSUB TARGET9
  182.      L$ = "No "
  183.      GOSUB TARGET7
  184.      GOSUB TARGET10
  185. TARGET16:
  186.      GOSUB TARGET4
  187.      IF I$ = "N" THEN
  188.          GOTO TARGET5
  189.      END IF
  190.      IF I$ <> "Y" THEN
  191.          BEEP
  192.          GOTO TARGET16
  193.      END IF
  194.      CLS
  195.      END
  196. TARGET11:
  197.      CLS
  198.      Y = 2
  199.      C = 4
  200.      L$ = "PURGE SCHEDULE"
  201.      GOSUB TARGET8
  202.      L$ = "Purge ALL entries prior to " + MONTH$(SMTH) + " " + SDAY$ + " (Today)"
  203.      GOSUB TARGET8
  204.      L$ = "Are you sure?"
  205.      GOSUB TARGET8
  206.      L$ = "Yes"
  207.      GOSUB TARGET9
  208.      L$ = "No "
  209.      GOSUB TARGET7
  210.      GOSUB TARGET10
  211. TARGET19:
  212.      GOSUB TARGET4
  213.      IF I$ = "N" THEN
  214.          GOTO TARGET5
  215.      END IF
  216.      IF I$ = "Y" THEN
  217.          GOTO TARGET18
  218.      END IF
  219.      BEEP
  220.      GOTO TARGET19
  221. TARGET18:
  222.      L$ = "Working ... Please Wait ..."
  223.      GOSUB TARGET3
  224.      ON ERROR GOTO TARGET20
  225.      NAME FILE$ AS OFILE$
  226. TARGET20:
  227.      OPEN OFILE$ FOR INPUT AS #1
  228.      OPEN FILE$ FOR OUTPUT AS #2
  229.      PRIOR$ = SMTH$ + SDAY$
  230. TARGET21:
  231.      LINE INPUT #1, DL$
  232.      MDATE$ = MID$(DL$, 1, 4)
  233.      IF MDATE$ > PRIOR$ THEN
  234.          PRINT #2, DL$
  235.      END IF
  236.      IF NOT EOF(1) THEN
  237.          GOTO TARGET21
  238.      END IF
  239.      CLOSE #1
  240.      CLOSE #2
  241.      KILL OFILE$
  242.      GOTO TARGET5
  243. TARGET12:
  244.      CLS
  245.      Y = 2
  246.      C = 2
  247.      L$ = "MODIFY SCHEDULE"
  248.      GOSUB TARGET8
  249.      L$ = "Current Movie Month: " + MONTH$(MTH)
  250.      GOSUB TARGET8
  251.      L$ = "Add New Movie Data"
  252.      SIZE = 1
  253.      GOSUB TARGET9
  254.      L$ = "Change movie month"
  255.      GOSUB TARGET7
  256.      L$ = "Sort Schedule Data"
  257.      GOSUB TARGET7
  258.      L$ = "Type Raw Data File"
  259.      GOSUB TARGET7
  260.      L$ = "Edit Raw Data File"
  261.      GOSUB TARGET7
  262.      L$ = "Quit to Main Menu "
  263.      GOSUB TARGET7
  264.      GOSUB TARGET10
  265.      L$ = "Press the Key of your Selection"
  266.      GOSUB TARGET3
  267. TARGET27:
  268.      GOSUB TARGET4
  269.      IF I$ = "A" THEN
  270.          GOTO TARGET22
  271.      END IF
  272.      IF I$ = "C" THEN
  273.          GOTO TARGET23
  274.      END IF
  275.      IF I$ = "S" THEN
  276.          GOTO TARGET24
  277.      END IF
  278.      IF I$ = "T" THEN
  279.          GOTO TARGET25
  280.      END IF
  281.      IF I$ = "E" THEN
  282.          GOTO TARGET26
  283.      END IF
  284.      IF I$ = "Q" THEN
  285.          GOTO TARGET5
  286.      END IF
  287.      BEEP
  288.      GOTO TARGET27
  289. TARGET25:
  290.      CLS
  291.      COLOR 7, 0
  292.      SHELL "TYPE " + FILE$ + " | MORE"
  293.      LOCATE 24, 1, 1
  294.      PRINT "Press Any Key to Continue ... ";
  295.      GOSUB TARGET4
  296.      GOTO TARGET12
  297. TARGET26:
  298.      L$ = "Loading Raw Data File ... One Moment Please ..."
  299.      GOSUB TARGET3
  300.      SHELL "ED " + FILE$
  301.      GOTO TARGET12
  302. TARGET24:
  303.      CLS
  304.      Y = 1
  305.      C = 6
  306.      L$ = "SORT SCHEDULE DATA"
  307.      GOSUB TARGET8
  308.      L$ = "Normal sort "
  309.      GOSUB TARGET9
  310.      L$ = "Reverse sort"
  311.      GOSUB TARGET7
  312.      L$ = "Quit Sorting"
  313.      GOSUB TARGET7
  314.      GOSUB TARGET10
  315.      L$ = "Press the Key of your Selection"
  316.      GOSUB TARGET3
  317. TARGET30:
  318.      GOSUB TARGET4
  319.      IF I$ = "N" THEN
  320.          GOTO TARGET28
  321.      END IF
  322.      IF I$ = "R" THEN
  323.          GOTO TARGET29
  324.      END IF
  325.      IF I$ = "Q" THEN
  326.          GOTO TARGET12
  327.      END IF
  328.      BEEP
  329.      GOTO TARGET30
  330. TARGET28:
  331.      L$ = "Sorting NORMAL Chronological Order"
  332.      GOSUB TARGET8
  333.      SHELL "SORT <" + FILE$ + " >" + FILE$
  334.      GOTO TARGET24
  335. TARGET29:
  336.      L$ = "Sorting REVERSE Chronological Order"
  337.      GOSUB TARGET8
  338.      SHELL "SORT /R <" + FILE$ + " >" + FILE$
  339.      GOTO TARGET24
  340. TARGET23:
  341.      CLS
  342.      Y = 1
  343.      C = 4
  344.      L$ = "CHANGE MOVIE MONTH"
  345.      GOSUB TARGET8
  346.      L$ = "  ˙  " + MONTH$(1) + "  "
  347.      SIZE = 5
  348.      GOSUB TARGET9
  349.      FOR N = 2 TO 12
  350.      L$ = "  ˙  " + MONTH$(N) + SPACE$(9 - LEN(MONTH$(N)))
  351.      GOSUB TARGET7
  352.      NEXT N
  353.      GOSUB TARGET10
  354.      L$ = "Use A and Z to Select, <ESC> for Default, <RETURN> when Done"
  355.      GOSUB TARGET3
  356.      COLOR C + 8, 0
  357.      Y = MTH
  358.      X = 33
  359.      COLOR 14, C
  360. TARGET31:
  361.      LOCATE Y + 6, X
  362.      PRINT "Ø->"
  363.      GOSUB TARGET4
  364.      LOCATE Y + 6, X
  365.      PRINT "  ˙"
  366.      IF I$ = "A" THEN
  367.          Y = Y - 1
  368.          IF Y < 1 THEN
  369.              Y = 12
  370.          END IF
  371.      END IF
  372.      IF I$ = "Z" THEN
  373.          Y = Y + 1
  374.          IF Y > 12 THEN
  375.              Y = 1
  376.          END IF
  377.      END IF
  378.      IF I = 27 THEN
  379.          Y = MTH
  380.      END IF
  381.      IF I = 13 THEN
  382.          MTH = Y
  383.          COLOR C, 0
  384.          GOTO TARGET12
  385.      END IF
  386.      GOTO TARGET31
  387. TARGET22:
  388.      CLS
  389.      Y = 2
  390.      C = 7
  391.      L$ = "ADD NEW MOVIE DATA"
  392.      GOSUB TARGET8
  393.      Y = 8
  394.      X = 16
  395.      CHAN$ = ""
  396.      DAY = 0
  397.      HR = 0
  398.      MIN = 0
  399.      SUF$ = ""
  400.      LOCATE Y, X
  401.      PRINT "MONTH ----> "; MONTH$(MTH)
  402.      Y = Y + 2
  403.      LOCATE Y, X
  404.      PRINT "TITLE ----> "; STRING$(32, 250)
  405.      Y = Y + 2
  406.      LOCATE Y, X
  407.      PRINT "LENGTH ---> 0:00"
  408.      Y = Y + 2
  409.      LOCATE Y, X
  410.      PRINT "CHANNEL --> ˙˙˙";
  411.      Y = Y + 1
  412.      LOCATE Y, X
  413.      PRINT "DAY ------> 00";
  414.      Y = Y + 1
  415.      LOCATE Y, X
  416.      PRINT "START ----> 00:00am"
  417.      Y = Y + 2
  418.      L$ = "Enter the Movie Title or Press <RETURN> to Exit"
  419.      GOSUB TARGET3
  420.      Y = 10
  421.      X = 28
  422.      SIZE = 32
  423.      NUM = 0
  424.      GOSUB TARGET32
  425.      TITLE$ = L$
  426.      IF L$ = "" THEN
  427.          GOTO TARGET12
  428.      END IF
  429.      L$ = "Enter the Playing Time of this movie. (Max=9hr 59min)"
  430.      GOSUB TARGET3
  431. TARGET33:
  432.      Y = 12
  433.      X = 28
  434.      SIZE = 1
  435.      NUM = 1
  436.      GOSUB TARGET32
  437.      LHR = N
  438.      Y = 12
  439.      X = 30
  440.      SIZE = 2
  441.      NUM = 1
  442.      GOSUB TARGET32
  443.      LMIN = N
  444.      IF LHR + LMIN = 0 OR LMIN > 59 THEN
  445.          BEEP
  446.          GOTO TARGET33
  447.      END IF
  448.      LHR$ = MID$(STR$(LHR), 2)
  449.      LMIN$ = MID$(STR$(LMIN), 2)
  450.      IF LEN(LMIN$) < 2 THEN
  451.          LMIN$ = "0" + LMIN$
  452.      END IF
  453. TARGET42:
  454.      L$ = "Enter Channel. Examples: 4, 5, 7, 25, 56, HBO, MAX, SHO, TMC"
  455.      GOSUB TARGET3
  456. TARGET34:
  457.      Y = 14
  458.      X = 28
  459.      SIZE = 3
  460.      CAP = 1
  461.      GOSUB TARGET32
  462.      IF L$ = "" AND CHAN$ = "" THEN
  463.          BEEP
  464.          GOTO TARGET34
  465.      END IF
  466.      IF L$ = "" THEN
  467.          LOCATE 14, 28
  468.          PRINT CHAN$
  469.      ELSE
  470.           CHAN$ = L$
  471.      END IF
  472.      CHAN$ = CHAN$ + STRING$(3 - LEN(CHAN$), 32)
  473. TARGET41:
  474.      L$ = "What Day will this entry be shown"
  475.      GOSUB TARGET3
  476. TARGET35:
  477.      Y = 15
  478.      X = 28
  479.      SIZE = 2
  480.      NUM = 1
  481.      GOSUB TARGET32
  482.      IF N = 0 AND DAY = 0 OR N > 31 THEN
  483.          BEEP
  484.          GOTO TARGET35
  485.      END IF
  486.      IF L$ <> "" AND N THEN
  487.          DAY = N
  488.      END IF
  489.      DAY$ = MID$(STR$(DAY), 2)
  490.      IF LEN(DAY$) < 2 THEN
  491.          DAY$ = "0" + DAY$
  492.      END IF
  493.      LOCATE 15, 28
  494.      PRINT DAY$
  495.      L$ = "Enter the Time the movie begins. (1:00-12:59)"
  496.      GOSUB TARGET3
  497. TARGET36:
  498.      Y = 16
  499.      X = 28
  500.      SIZE = 2
  501.      NUM = 1
  502.      GOSUB TARGET32
  503.      IF N = 0 AND HR = 0 OR N > 12 THEN
  504.          BEEP
  505.          GOTO TARGET36
  506.      END IF
  507.      IF L$ <> "" AND N THEN
  508.          HR = N
  509.      END IF
  510.      HR$ = MID$(STR$(HR), 2)
  511.      IF LEN(HR$) < 2 THEN
  512.          HR$ = " " + HR$
  513.      END IF
  514.      LOCATE 16, 28
  515.      PRINT HR$
  516. TARGET37:
  517.      Y = 16
  518.      X = 31
  519.      SIZE = 2
  520.      NUM = 1
  521.      GOSUB TARGET32
  522.      IF LEN(L$) < 2 THEN
  523.          L$ = L$ + "0"
  524.      END IF
  525.      IF L$ > "59" THEN
  526.          BEEP
  527.          GOTO TARGET37
  528.      END IF
  529.      MIN$ = L$
  530.      MIN = VAL(MIN$)
  531.      LOCATE 16, 31
  532.      PRINT MIN$
  533.      L$ = "Select: A=am , N=Noon, P=pm, M=Midnight, X=Midnight-6am (Next Day)"
  534.      GOSUB TARGET3
  535. TARGET39:
  536.      Y = 16
  537.      X = 33
  538.      SIZE = 1
  539.      CAP = 1
  540.      GOSUB TARGET32
  541.      IF L$ = "" AND SUF$ <> "" THEN
  542.          GOTO TARGET38
  543.      END IF
  544.      IF L$ = "A" THEN
  545.          SUF$ = "am"
  546.          GOTO TARGET38
  547.      END IF
  548.      IF L$ = "P" THEN
  549.          SUF$ = "pm"
  550.          GOTO TARGET38
  551.      END IF
  552.      IF L$ = "N" THEN
  553.          HR = 12
  554.          MIN = 0
  555.          SUF$ = "pm"
  556.          LOCATE 16, 28
  557.          PRINT "12:00"
  558.          GOTO TARGET38
  559.      END IF
  560.      IF L$ = "M" THEN
  561.          HR = 12
  562.          MIN = 0
  563.          SUF$ = "am"
  564.          LOCATE 16, 28
  565.          PRINT "12:00"
  566.          GOTO TARGET38
  567.      END IF
  568.      IF L$ <> "X" THEN
  569.          BEEP
  570.          GOTO TARGET39
  571.      END IF
  572.      IF DAY = 31 OR HR > 5 THEN
  573.          BEEP
  574.          GOTO TARGET39
  575.      END IF
  576.      DAY = DAY + 1
  577.      LOCATE 15, 27
  578.      PRINT DAY
  579.      SUF$ = "am"
  580. TARGET38:
  581.      LOCATE 16, 33
  582.      PRINT SUF$
  583.      LOCATE 18, 16
  584.      PRINT SPACE$(40)
  585.      HR$ = MID$(STR$(HR), 2)
  586.      IF LEN(HR$) < 2 THEN
  587.          HR$ = " " + HR$
  588.      END IF
  589.      MIN$ = MID$(STR$(MIN), 2)
  590.      IF LEN(MIN$) < 2 THEN
  591.          MIN$ = "0" + MIN$
  592.      END IF
  593.      MTH$ = MID$(STR$(MTH), 2)
  594.      IF LEN(MTH$) < 2 THEN
  595.          MTH$ = "0" + MTH$
  596.      END IF
  597.      LOCATE 18, 16, 1
  598.      PRINT "Data OK to Send? (Y/N) ";
  599.      GOSUB TARGET6
  600.      IF I$ = "N" THEN
  601.          GOTO TARGET40
  602.      END IF
  603.      OPEN "SCHEDULE.DAT" FOR APPEND AS #1
  604.      DL$ = MTH$ + DAY$ + HR$ + MIN$ + SUF$ + LHR$ + LMIN$ + CHAN$ + TITLE$
  605.      PRINT #1, DL$
  606.      CLOSE #1
  607. TARGET40:
  608.      LOCATE 18, 16, 1
  609.      PRINT "More on this Channel? (Y/N) ";
  610.      GOSUB TARGET6
  611.      IF I$ = "Y" THEN
  612.          GOTO TARGET41
  613.      END IF
  614.      LOCATE 18, 16, 1
  615.      PRINT "Same movie on another Channel? (Y/N) ";
  616.      GOSUB TARGET6
  617.      IF I$ = "Y" THEN
  618.          GOTO TARGET42
  619.      END IF
  620.      GOTO TARGET22
  621. TARGET32:
  622.      XS = X
  623.      LAST = X + SIZE
  624. TARGET44:
  625.      L$ = ""
  626.      LOCATE Y, X
  627.      IF NUM THEN
  628.          PRINT STRING$(SIZE, "0")
  629.      ELSE
  630.           PRINT STRING$(SIZE, "˙")
  631.      END IF
  632. TARGET43:
  633.      LOCATE Y, X
  634.      PRINT "€"
  635.      LOCATE Y, X
  636.      IF NUM THEN
  637.          PRINT "0"
  638.      ELSE
  639.           PRINT "˙"
  640.      END IF
  641.      I$ = INKEY$
  642.      IF I$ = "" THEN
  643.          GOTO TARGET43
  644.      END IF
  645.      I = ASC(I$)
  646.      IF CAP AND I > 96 AND I < 123 THEN
  647.          I = I - 32
  648.          I$ = CHR$(I)
  649.      END IF
  650.      IF I = 27 THEN
  651.          X = XS
  652.          GOTO TARGET44
  653.      END IF
  654.      IF I <> 13 THEN
  655.          GOTO TARGET45
  656.      END IF
  657. TARGET47:
  658.      N = VAL(L$)
  659.      NUM = 0
  660.      CAP = 0
  661.      RETURN
  662. TARGET45:
  663.      IF I <> 8 THEN
  664.          GOTO TARGET46
  665.      END IF
  666.      IF L$ = "" THEN
  667.          GOTO TARGET43
  668.      END IF
  669.      L = LEN(L$)
  670.      L$ = MID$(L$, 1, L - 1)
  671.      X = X - 1
  672.      GOTO TARGET43
  673. TARGET46:
  674.      IF NUM AND (I < 48 OR I > 57) THEN
  675.          BEEP
  676.          GOTO TARGET43
  677.      END IF
  678.      IF I < 32 OR I > 126 THEN
  679.          BEEP
  680.          GOTO TARGET43
  681.      END IF
  682.      LOCATE Y, X
  683.      PRINT I$
  684.      L$ = L$ + I$
  685.      X = X + 1
  686.      IF X = LAST THEN
  687.          GOTO TARGET47
  688.      END IF
  689.      GOTO TARGET43
  690. TARGET13:
  691.      CLS
  692.      Y = 1
  693.      C = 6
  694.      L$ = "OUTPUT SCHEDULE"
  695.      GOSUB TARGET8
  696.      L$ = "Please select output device"
  697.      GOSUB TARGET8
  698.      L$ = "Printer"
  699.      SIZE = 1
  700.      GOSUB TARGET9
  701.      L$ = "Screen "
  702.      GOSUB TARGET7
  703.      L$ = "File   "
  704.      GOSUB TARGET7
  705.      L$ = "Quit   "
  706.      GOSUB TARGET7
  707.      GOSUB TARGET10
  708.      L$ = "Select Output Device or Quit for Main Menu"
  709.      GOSUB TARGET3
  710.      OFILE$ = ""
  711. TARGET49:
  712.      GOSUB TARGET4
  713.      IF I$ = "P" THEN
  714.          OFILE$ = "LPT1:"
  715.          GOTO TARGET48
  716.      END IF
  717.      IF I$ = "S" THEN
  718.          OFILE$ = "SCRN:"
  719.          GOTO TARGET48
  720.      END IF
  721.      IF I$ = "Q" THEN
  722.          GOTO TARGET5
  723.      END IF
  724.      IF I$ <> "F" THEN
  725.          BEEP
  726.          GOTO TARGET49
  727.      END IF
  728.      L$ = "Enter Filename or Press RETURN to Cancel"
  729.      GOSUB TARGET3
  730.      L$ = "Filename:             "
  731.      GOSUB TARGET8
  732.      COLOR 15, C
  733.      Y = 20
  734.      X = 39
  735.      SIZE = 12
  736.      NUM = 0
  737.      GOSUB TARGET32
  738.      COLOR C, 0
  739.      IF L$ = "" THEN
  740.          GOTO TARGET13
  741.      END IF
  742.      OFILE$ = L$
  743. TARGET48:
  744.      L$ = "*** WORKING *** ... PLEASE STAND BY ..."
  745.      GOSUB TARGET3
  746.      OPEN FILE$ FOR INPUT AS #1
  747.      OPEN OFILE$ FOR OUTPUT AS #2
  748.      PRINT #2, "---------------------------------------------------------------------------"
  749.      PRINT #2, "       * * * * *  MOVIE Manager SCHEDULE FOR " + DATE$ + "  * * * * *"
  750.      PRINT #2, "---------------------------------------------------------------------------"
  751.      PRINT #2, " "
  752.      PRINT #2, " "
  753.      PRINT #2, "---------------------------------------------------------------------------"
  754.      FIRST = 1
  755. TARGET52:
  756.      LINE INPUT #1, DL$
  757.      MTH = VAL(MID$(DL$, 1, 2))
  758.      DAY$ = MID$(DL$, 3, 2)
  759.      DAY = VAL(DAY$)
  760.      HR$ = MID$(DL$, 5, 2)
  761.      HR = VAL(HR$)
  762.      MIN$ = MID$(DL$, 7, 2)
  763.      MIN = VAL(MIN$)
  764.      SUF$ = MID$(DL$, 9, 2)
  765.      LHR = VAL(LHR$)
  766.      LHR$ = MID$(DL$, 11, 1)
  767.      LHR = VAL(LHR$)
  768.      LMIN$ = MID$(DL$, 12, 2)
  769.      LMIN = VAL(LMIN$)
  770.      CHAN$ = MID$(DL$, 14, 3)
  771.      TITLE$ = MID$(DL$, 17)
  772.      SHR = HR
  773.      SMIN = MIN
  774.      SMIN = SMIN + LMIN
  775.      IF SMIN > 60 THEN
  776.          SMIN = SMIN - 60
  777.          SHR = SHR + 1
  778.      END IF
  779.      SHR = SHR + LHR
  780.      IF SHR < 12 THEN
  781.          SSUF$ = SUF$
  782.          GOTO TARGET50
  783.      END IF
  784.      IF SHR = 12 AND HR = 12 THEN
  785.          SSUF$ = SUF$
  786.          GOTO TARGET50
  787.      END IF
  788.      IF SHR > 12 THEN
  789.          SHR = SHR - 12
  790.      END IF
  791.      IF SUF$ = "am" THEN
  792.          SSUF$ = "pm"
  793.      ELSE
  794.           SSUF$ = "am"
  795.      END IF
  796. TARGET50:
  797.      SHR$ = MID$(STR$(SHR), 2)
  798.      SMIN$ = MID$(STR$(SMIN), 2)
  799.      IF LEN(SMIN$) < 2 THEN
  800.          SMIN$ = "0" + SMIN$
  801.      END IF
  802.      IF MTH = LMTH AND DAY = LDAY AND NOT FIRST THEN
  803.          GOTO TARGET51
  804.      END IF
  805.      PRINT #2, "* * *  " + MONTH$(MTH) + " " + DAY$
  806.      PRINT #2, "---------------------------------------------------------------------------"
  807.      LMTH = MTH
  808.      LDAY = DAY
  809.      FIRST = 0
  810. TARGET51:
  811.      PRINT #2, "Title -----> " + TITLE$
  812.      PRINT #2, "Length ----> " + LHR$ + ":" + LMIN$
  813.      PRINT #2, "Channel ---> " + CHAN$
  814.      PRINT #2, "Showtime --> " + HR$ + ":" + MIN$ + SUF$ + " to " + SHR$ + ":" + SMIN$ + SSUF$
  815.      PRINT #2, "---------------------------------------------------------------------------"
  816.      IF NOT EOF(1) THEN
  817.          GOTO TARGET52
  818.      END IF
  819. TARGET53:
  820.      IF OFILE$ = "SCRN:" THEN
  821.          PRINT "Press <RETURN> to Continue ..."
  822.          GOSUB TARGET4
  823.          IF I <> 13 THEN
  824.              GOTO TARGET53
  825.          END IF
  826.      END IF
  827.      CLOSE #2
  828.      CLOSE #1
  829.      GOTO TARGET13
  830.  
  831.